0 REM << CD37-2 >>
1 REM COMMODARES PROBLEM #33-2:
2 PRINT"[147]  SENTENCE DISASSEMBLER"
3 REM SOLUTION BY
4 REM   J.V. HENRY
5 REM
10 INPUT"[147]A PHRASE OR SENTENCE";S$
20 L=LEN(S$) : H$=""
30 FOR I=1 TO L : H1$=MID$(S$,I,1)
40 IF H1$<>" " THEN H$=H$+H1$
50 IF H1$=" " OR I=L THEN J=I : I=L
60 NEXT
70 IF LEN(H$)>0 THEN PRINT H$;TAB(25)LEN(H$) : LE=LE + LEN(H$)
80 S$=RIGHT$(S$,L-J) : IF L-J>0 THEN 20
90 PRINT TAB(25);"[163][163]" : REM COMMODORE-T
100 LE$=STR$(LE) : L2=LEN(LE$)
110 PRINT CHR$(34)+"TOTAL CHARACTERS"+CHR$(34)+" =" ;TAB(27-L2);LE